FIELD 2, 2 AS ISURNAME$, 2 AS IGIVEN1$, 2 AS IGIVEN2$, 2 AS IGIVEN3$, 2 AS ITITLE$, 1 AS ISEX$, 4 AS IBIRTHDT$, 2 AS IBPL1$, 2 AS IBPL2$, 2 AS IBPL3$, 2 AS IBPL4$, 4 AS ICHRISTDT$, 2 AS ICPL1$, 2 AS ICPL2$, 2 AS ICPL3$, 2 AS ICPL4$, 4 AS _
IDEATHDT$, 2 AS IDPL1$, 2 AS IDPL2$, 2 AS IDPL3$, 2 AS IDPL4$, 4 AS IBURIALDT$, 2 AS IBUPL1$, 2 AS IBUPL2$, 2 AS IBUPL3$, 2 AS IBUPL4$, 3 AS IBAPTDT$, 2 AS IBAPTEMP$, 3 AS IEDOWDT$, 2 AS IEDTEMP$, 3 AS ICHILDtoPARENTSealDT$, 2 AS ICTPSTEMP$, 2 AS _
IOlderSiblPtr$, 2 AS IndOwnMarrPtr$, 2 AS IParentMarrPtr$, 10 AS IIDNUM$, 2 AS INotePadPtr$
FIELD 2, 11 AS INDIVIDMAX$, 10 AS IFIRSTDELET$, 71 AS XXXX$
GET #2, 1
INDIVIDMAX% = VAL(INDIVIDMAX$)
OPEN fp$ + "MARR2.DAT" FOR RANDOM AS #3 LEN = 28
FIELD 3, 2 AS MHusPtr$, 2 AS MWifPtr$, 2 AS MChildPtr$, 4 AS MarrDT$, 2 AS MPL1$, 2 AS MPL2$, 2 AS MPL3$, 2 AS MPL4$, 3 AS MWifToHusSealDT$, 2 AS MWifToHusSealTemp$, 2 AS MHusOtherMarrPtr$, 2 AS MWifOtherMarrPtr$
FIELD 3, 11 AS MarrMAX$, 10 AS MarrFIRSTDELET$, 7 AS XXXX$